home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSSCLP.for < prev    next >
Text File  |  1991-04-13  |  811b  |  26 lines
  1.         SUBROUTINE GSSCLP(VX0,VX1,VY0,VY1,AREA)
  2.         IMPLICIT NONE
  3.         REAL*4 AREA(4),VX0,VX1,VY0,VY1,AX0,AX1,AY0,AY1
  4. C
  5. C        THIS SUBROUTINE SAVES THE CURRENT ABSOLUTE CLIPPING WINDOW AND
  6. C        SETS A NEW ABSOLUTE CLIPPING WINDOW GIVEN VIRTUAL COORDINATES.
  7. C        IT MAKES SURE THAT THE CLIPPING WINDOW NEVER LIES OUTSIDE THE
  8. C        PHYSICAL DEVICE.
  9. C
  10.         INCLUDE DIGLIB$KOM:GCCLIP.PRM
  11.         INCLUDE DIGLIB$KOM:GCDCHR.PRM
  12. C
  13.         AREA(1) = XCM0
  14.         AREA(2) = XCM1
  15.         AREA(3) = YCM0
  16.         AREA(4) = YCM1
  17. C
  18.         CALL GSRST(VX0,VY0,AX0,AY0)
  19.         CALL GSRST(VX1,VY1,AX1,AY1)
  20.         XCM0 = AMAX1(AMIN1(AX0,AX1),0.0)
  21.         YCM0 = AMAX1(AMIN1(AY0,AY1),0.0)
  22.         XCM1 = AMIN1(XCLIPD,AMAX1(AX0,AX1))
  23.         YCM1 = AMIN1(YCLIPD,AMAX1(AY0,AY1))
  24.         RETURN
  25.         END
  26.